﻿<!-- #include file="ding.asp" -->
<!-- #include file="mymin.asp" -->
<%Call Head2()%>
<title>分类修改结果</title></head><body><div class="main400">
<%
IF KEY<>0 then Call Error2("你的权限不足！")
Dim num,relid
num=request.form("num")
relid=request.form("relid")

if num="" or IsNumeric(num)=False then num=0
if relid="" or IsNumeric(relid)=False then num=0

Dim id
id=request.form("id")
if id="" or IsNumeric(id)=False then Call Error2("ID无效！")

Dim class1
class1=trim(request.form("class1"))
if class1="" then Call Error2("栏目名称不能为空！")

Dim lx
lx=request.form("lx")
if lx="" or IsNumeric(lx)=False then Call Error2("类型无效！")

Dim pid
pid=request.form("pid")
if pid="" or IsNumeric(pid)=False then Call Error2("排序无效！")

Dim br
br=request.form("br")
if br="" or IsNumeric(br)=False then Call Error2("换行无效！")

Dim wmltxt,rs
wmltxt=request.form("wmltxt")

set rs=server.createobject("adodb.recordset")
rs.open "select * from 74hu_class where classid="&id,myconn,1,3
rs("class")=class1
rs("pid")=pid
rs("br")=br
rs("lx")=lx
rs("relid")=relid
rs("wmltxt")=wmltxt
rs("num")=num
rs.update
rs.close
set rs=nothing
response.write "修改成功!"
%>
<br/>----------<br/>
<%if id<>0 then%>
<a href="Clist.asp?sid=<%=sid%>&amp;id=<%=id%>&amp;lx=<%=lx%>">[栏目分类]</a><br/>
<%end if%>
<a href='class.asp?sid=<%=sid%>'>[栏目分类]</a><%Call rootLast2%>